home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / tcp / AmiSlate1_2.lha / AmiSlate / ExampleRexx / boxme.rexx next >
OS/2 REXX Batch file  |  1995-05-24  |  2KB  |  67 lines
  1. /* BoxMe.rexx
  2.  
  3.    An ARexx script designed to work with AmiSlate.
  4.    
  5.    Draws a box around the current mouse position whenever the user
  6.    presses or lets go of the left mouse button in the drawing window.
  7.    
  8. */
  9. parse arg CommandPort ActiveString
  10.  
  11.  
  12. if (length(CommandPort) == 0) then do
  13.     say ""
  14.     say "Usage:  rx boxme.rexx <REXXPORTNAME>"
  15.     say "        (REXXPORTNAME is usually AMISLATE)"
  16.     say ""
  17.     say "Or run from the Rexx menu within AmiSlate."
  18.     say ""
  19.     exit 0
  20.     end
  21.     
  22.  
  23. address (CommandPort)
  24. options results
  25.  
  26. /* Constants for use with AmiSlate's ARexx interface */
  27. AMessage.TIMEOUT     = 1    /* No events occurred in specified time period */
  28. AMessage.MESSAGE     = 2    /* Message recieved from remote Amiga */
  29. AMessage.MOUSEDOWN   = 4    /* Left mouse button press in drawing area */
  30. AMessage.MOUSEUP     = 8    /* Left mouse button release in drawing area */
  31. AMessage.RESIZE      = 16    /* Window was resized--time to redraw screen? */
  32. AMessage.QUIT        = 32    /* AmiSlate is shutting down */
  33. AMessage.CONNECT     = 64    /* Connection established */
  34. AMessage.DISCONNECT  = 128    /* Connection broken */
  35. AMessage.TOOLSELECT  = 256    /* Tool Selected */
  36. AMessage.COLORSELECT = 512    /* Palette Color selected */
  37. AMessage.KEYPRESS    = 1024    /* Key pressed */
  38.  
  39. PenDown = 0
  40.  
  41. do while (1=1)
  42.     WaitEvent 5 MOUSEDOWN MOUSEUP QUIT stem e.
  43.     t = e.type
  44.     
  45.     if (t = AMessage.MOUSEDOWN) then do
  46.         setfpen 7
  47.         square e.x-5 e.y-5 e.x+5 e.y+5
  48.         PenDown = 1
  49.         end
  50.  
  51.     if (t = AMessage.MOUSEUP) then do
  52.         setfpen 1
  53.         square e.x-5 e.y-5 e.x+5 e.y+5
  54.         PenDown = 0
  55.         end
  56.  
  57.     if (t = AMessage.QUIT) then exit
  58.  
  59.     if ((t = AMessage.TIMEOUT)&(PenDown = 1)) then do
  60.         setfpen 2
  61.         square e.x-5 e.y-5 e.x+5 e.y+5
  62.         end            
  63.     
  64.     e.type = 0
  65.     end
  66.  
  67.